home *** CD-ROM | disk | FTP | other *** search
/ Journey to the Planets (Wayzata) / Journey to the Planets (Wayzata Technology) (1994).iso / pc / pluto / pluto.hc / card_2999.txt < prev    next >
Text File  |  1994-12-16  |  2KB  |  92 lines
  1. -- card: 2999 from stack: in.hc
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2813
  5. -- name: MAIN MENU
  6. ----- HyperTalk script -----
  7. on openCard
  8.   lock screen
  9.   colorizeHC "Add","PLANETS:PLUTO:UI_MAC:PLUTO.PIC"
  10.   unlock screen
  11.   noPaintWhite
  12.   palette "pluMMenu", "0,417"
  13. end openCard
  14.  
  15.  
  16. on closeCard
  17.   lock screen
  18.   colorizeHC "colorFill"   -- redraw previous screens
  19.   unlock screen
  20.   if there is a window "PLUTO211KHz Movie" then close window "PLUTO211KHz Movie"
  21.   noPaintWhite
  22.   if there is a window "pluMMenu" then close window "pluMMenu"
  23. end closeCard
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31. -- part 1 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=219 top=89 right=205 bottom=371
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: ORBITAL DATA
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   frameHilite
  46.   lock screen
  47.   go to cd "D1"
  48.   unlock screen
  49. end mouseUp
  50.  
  51.  
  52. -- part 2 (button)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=113 top=248 right=364 bottom=265
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: EXPLORATION
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   frameHilite
  67.   lock screen
  68.   go to cd "E1"
  69.   unlock screen
  70. end mouseUp
  71.  
  72.  
  73. -- part 3 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=330 top=248 right=364 bottom=482
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: MOON
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   frameHilite
  88.   lock screen
  89.   go to cd "M1"
  90.   unlock screen
  91. end mouseUp
  92.